Edinburgh’s road network
Edinburgh’s implementation zones
Time series analysis
Mapping accidents with roads: 2013
## LAYER Accident_Index
## 1 20mph existing streets 43
## 2 20mph local streets 76
## 3 20mph main streets 173
## 4 30mph 84
## 5 40mph 52
## 6 50, 60 or 70mph 1
## 7 Part time 20mph 1
## 8 Trunk roads 1
## Speed_limit Accident_Index
## 1 20 22
## 2 30 367
## 3 40 42
Mapping accidents with roads: 2014
## LAYER Accident_Index
## 1 20mph existing streets 152
## 2 20mph local streets 148
## 3 20mph main streets 349
## 4 30mph 243
## 5 40mph 64
## 6 50, 60 or 70mph 22
## 7 Part time 20mph 7
## 8 Trunk roads 4
## Speed_limit Accident_Index
## 1 20 35
## 2 30 888
## 3 40 66
Mapping accidents with roads: 2015
## LAYER Accident_Index
## 1 20mph existing streets 116
## 2 20mph local streets 171
## 3 20mph main streets 298
## 4 30mph 260
## 5 40mph 86
## 6 50, 60 or 70mph 15
## 7 Part time 20mph 5
## 8 Trunk roads 7
## Speed_limit Accident_Index
## 1 20 34
## 2 30 833
## 3 40 91
Mapping accidents with roads: 2016
## LAYER Accident_Index
## 1 20mph existing streets 40
## 2 20mph local streets 39
## 3 20mph main streets 19
## 4 30mph 19
## 5 40mph 12
## Speed_limit Accident_Index
## 1 20 5
## 2 30 113
## 3 40 11
Mapping accidents with roads: 2018
## LAYER Accident_Index
## 1 20mph existing streets 67
## 2 20mph local streets 90
## 3 20mph main streets 179
## 4 30mph 155
## 5 40mph 70
## 6 50, 60 or 70mph 7
## 7 Part time 20mph 12
## 8 Trunk roads 3
## Speed_limit Accident_Index
## 1 20 284
## 2 30 221
## 3 40 78
Mapping accidents with roads: 2019
## LAYER Accident_Index
## 1 20mph existing streets 31
## 2 20mph local streets 50
## 3 20mph main streets 81
## 4 30mph 68
## 5 40mph 19
## 6 50, 60 or 70mph 2
## 7 Part time 20mph 1
## 8 Trunk roads 1
## Speed_limit Accident_Index
## 1 20 144
## 2 30 88
## 3 40 21
Count pre 20mph
## LAYER Accident_Index
## 1 20mph existing streets 87
## 2 20mph local streets 111
## 3 20mph main streets 210
## 4 30mph 148
## 5 40mph 58
## 6 50, 60 or 70mph 9
## 7 Part time 20mph 2
## 8 Trunk roads 2
## Speed_limit Accident_Index
## 1 20 22
## 2 30 558
## 3 40 47
Count post 20mph
## LAYER Accident_Index
## 1 20mph existing streets 56
## 2 20mph local streets 68
## 3 20mph main streets 129
## 4 30mph 110
## 5 40mph 44
## 6 50, 60 or 70mph 4
## 7 Part time 20mph 6
## 8 Trunk roads 1
## Speed_limit Accident_Index
## 1 20 211
## 2 30 161
## 3 40 46
Output column: Layer
## Accident_Index Speed_limit LAYER
## 1 0000419 20 20mph main streets
## 2 0000519 20 20mph local streets
## 3 0000919 40 20mph local streets
## 4 0001019 20 30mph
## 5 0001219 40 40mph
## 6 0001419 30 30mph
Table: Average annual road traffic collision rates in the city of Edinburgh (road network)
Table: Average annual road traffic collision rates in the city of Edinburgh (Stats19)
Effect estimate
Mapping accidents with implementation zones: 2013
## ImplementationZone Accident_Index
## 1 1 73
## 2 2 105
## 3 3 137
## 4 4 44
## 5 5 68
## 6 6 30
## 7 7 21
Mapping accidents with implementation zones: 2014
## ImplementationZone Accident_Index
## 1 1 168
## 2 2 275
## 3 3 298
## 4 4 109
## 5 5 132
## 6 6 89
## 7 7 58
Mapping accidents with implementation zones: 2015
## ImplementationZone Accident_Index
## 1 1 155
## 2 2 210
## 3 3 273
## 4 4 75
## 5 5 144
## 6 6 91
## 7 7 43
Mapping accidents with implementation zones: 2016
total <- total_zones[total_zones$year == "2016", ]
map_zones %>% addMarkers(lng =total$Longitude, lat = total$Latitude,
popup =paste("Accident index: ", total$Accident_Index, "<br>",
"Zone: ", total$ImplementationZone))
count_impl(total[total$year == "2016", ])
## ImplementationZone Accident_Index
## 1 1 96
## 2 2 120
## 3 3 147
## 4 4 48
## 5 5 60
## 6 6 48
## 7 7 24
Mapping accidents with implementation zones: 2018
## ImplementationZone Accident_Index
## 1 1 88
## 2 2 125
## 3 3 160
## 4 4 53
## 5 5 68
## 6 6 46
## 7 7 30
Mapping accidents with implementation zones: 2019
total <- total_zones[total_zones$year == "2019", ]
map_zones %>% addMarkers(lng =total$Longitude, lat = total$Latitude,
popup =paste("Accident index: ", total$Accident_Index, "<br>",
"Zone: ", total$ImplementationZone))
count_impl(total[total$year == "2019", ])
## ImplementationZone Accident_Index
## 1 1 42
## 2 2 68
## 3 3 79
## 4 4 33
## 5 5 27
## 6 6 18
## 7 7 14
Output column: Implementation Zone
## Accident_Index Speed_limit ImplementationZone
## 1 2013950000001 30 1
## 2 2013950000002 30 2
## 3 2013950000003 30 2
## 4 2013950000007 30 1
## 5 2013950000010 30 4
## 6 2013950000058 20 7
Count accidents in control zones
Control zone 1a:City center -> George St/Harbour, Aberdeen
## [1] 15
Control zone 1b:Rural west -> Tay Bridgehead & St Andrews
## [1] 26
Control zone 3:South central -> Dundee
## [1] 148
Control zone 4:North west -> Renfrew North, Renfrew South & Gallowhill, Paisley North West
## [1] 47
Control zone 5:West -> Glasqow Kelvin
## [1] 84
Control zone 6:South -> Paisley
## [1] 74
Updated dataset for Edinburgh
## Accident_Index Speed_limit LAYER ImplementationZone
## 1 0000419 20 20mph main streets 2
## 2 0000519 20 20mph local streets 1
## 3 0000919 40 20mph local streets 3
## 4 0001019 20 30mph 2
## 5 0001219 40 40mph 4
## 6 0001419 30 30mph 4